home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / usenet / volume2 / cursive.shr < prev    next >
Encoding:
Internet Message Format  |  1987-11-20  |  25.2 KB
  1. Path: uunet!husc6!mit-eddie!uw-beaver!tektronix!tekgen!tekred!games-request
  2. From: games-request@tekred.TEK.COM
  3. Newsgroups: comp.sources.games
  4. Subject: v02i089:  cursive - cursive banner program
  5. Message-ID: <1844@tekred.TEK.COM>
  6. Date: 19 Nov 87 18:15:57 GMT
  7. Sender: billr@tekred.TEK.COM
  8. Lines: 1660
  9. Approved: billr@tekred.TEK.COM
  10.  
  11. Submitted by: Jan Wolter <umix!umich!eecs.umich.edu!palam.eecs.umich.edu!janc@uunet.uu.net>
  12. Comp.sources.games: Volume 2, Issue 89
  13. Archive-name: cursive.shr
  14.  
  15.     [I tried it and it really works.  Neat, too!  -br]
  16.  
  17. #! /bin/sh
  18. # This is a shell archive.  Remove anything before this line, then unpack
  19. # it by saving it into a file and typing "sh file".  To overwrite existing
  20. # files, type "sh file -c".  You can also feed this as standard input via
  21. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  22. # will see the following message at the end:
  23. #        "End of shell archive."
  24. # Contents:  README Makefile cursive.6 cursive.c cursive.h font.c
  25. # Wrapped by billr@tekred on Thu Nov 19 10:10:23 1987
  26. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  27. if test -f README -a "${1}" != "-c" ; then 
  28.   echo shar: Will not over-write existing file \"README\"
  29. else
  30. echo shar: Extracting \"README\" \(424 characters\)
  31. sed "s/^X//" >README <<'END_OF_README'
  32. XThis is a program for generating horizontal cursive banners.  It's main
  33. Xuse is for generating cute signatures for email.  It is copyrighted by
  34. XJan Wolter, but may be distributed freely.  Have what fun you can...
  35. X
  36. X                  ___                _     __  _
  37. X                 (   >              ' )   /   // _/_
  38. X                  __/___.  ____      / / / __|/  /  _  __
  39. X                 / / (_/|_/ / <__   (_(_/ (_) \_<__</_/ (__
  40. X                <_/
  41. X                    janc@crim.eecs.umich.edu
  42. X
  43. END_OF_README
  44. if test 424 -ne `wc -c <README`; then
  45.     echo shar: \"README\" unpacked with wrong size!
  46. fi
  47. # end of overwriting check
  48. fi
  49. if test -f Makefile -a "${1}" != "-c" ; then 
  50.   echo shar: Will not over-write existing file \"Makefile\"
  51. else
  52. echo shar: Extracting \"Makefile\" \(466 characters\)
  53. sed "s/^X//" >Makefile <<'END_OF_Makefile'
  54. XCFLAGS = -g
  55. X
  56. Xcursive: cursive.o x.o xs.o
  57. X    cc -g -o cursive cursive.o x.o xs.o
  58. X
  59. Xx.o: x.c
  60. X
  61. Xxs.o: xs.c
  62. X
  63. Xx.c: font.c
  64. X    xstr font.c
  65. X
  66. Xxs.c: font.c
  67. X    xstr font.c
  68. X
  69. X# This is for use if you haven't got the xstr command.  The program works
  70. X# the same, but is slightly bigger.
  71. X
  72. Xlcursive: cursive.o font.o
  73. X    cc -g -o lcursive cursive.o font.o
  74. X
  75. Xcursive.shar: cursive.c font.c cursive.h cursive.6 Makefile shar
  76. X    shar cursive.c font.c cursive.h cursive.6 Makefile shar > cursive.shar
  77. END_OF_Makefile
  78. if test 466 -ne `wc -c <Makefile`; then
  79.     echo shar: \"Makefile\" unpacked with wrong size!
  80. fi
  81. # end of overwriting check
  82. fi
  83. if test -f cursive.6 -a "${1}" != "-c" ; then 
  84.   echo shar: Will not over-write existing file \"cursive.6\"
  85. else
  86. echo shar: Extracting \"cursive.6\" \(1300 characters\)
  87. sed "s/^X//" >cursive.6 <<'END_OF_cursive.6'
  88. X.TH CURSIVE 6 "24 July 1985"
  89. X.UC
  90. X.SH NAME
  91. Xcursive \- print text in cursive script
  92. X.SH SYNOPSIS
  93. X.B /usr/games/cursive
  94. X[
  95. X.BI \-i n
  96. X]
  97. X[
  98. X.BI \-t n
  99. X]
  100. X[message]
  101. X.SH DESCRIPTION
  102. X.I Cursive
  103. Xprints a line of text in a rather crude cursive script.
  104. XIt is intended for use mainly for the generation of decorative signatures
  105. Xfor electronic mail.
  106. XIf message text is given on the command line, that text is used.
  107. XOtherwise the text will be read from standard input up to an end of file.
  108. XThe
  109. X.B \-i
  110. Xoption sets the minimum spacing between adjacent characters.
  111. XThe default is
  112. X.B \-i1 .
  113. XThe
  114. X.B \-t
  115. Xoption sets the length of the trailing lines on the end of each word.
  116. XThe default is
  117. X.B \-t1 .
  118. X.PP
  119. XThe '_' character is treated in a special way.  It may be inserted in
  120. Xthe text anywhere you wish to lengthen a connecting line between two
  121. Xletters.
  122. X.SH BUGS
  123. XMany ASCII characters are not defined, notably the numbers and symbols.
  124. XPunctuation is mostly available.
  125. XSome characters are rather ugly.
  126. XThe author has lousy handwriting.
  127. X.SH AUTHOR
  128. XJan Wolter.  UUCP mail to janc@crim.eecs.umich.edu
  129. X.SH COPYRIGHT
  130. XThis program and the cursive font it generates are copyrighted by Jan Wolter.
  131. XBoth may be freely used and distributed in any way whatsoever, so long as
  132. Xthe author's name is left in the source code and documentation.
  133. END_OF_cursive.6
  134. if test 1300 -ne `wc -c <cursive.6`; then
  135.     echo shar: \"cursive.6\" unpacked with wrong size!
  136. fi
  137. # end of overwriting check
  138. fi
  139. if test -f cursive.c -a "${1}" != "-c" ; then 
  140.   echo shar: Will not over-write existing file \"cursive.c\"
  141. else
  142. echo shar: Extracting \"cursive.c\" \(6630 characters\)
  143. sed "s/^X//" >cursive.c <<'END_OF_cursive.c'
  144. X/*        CURSIVE SIGNATURE PROGRAM        Version 0.10
  145. X *              (c) 1985 - Jan Wolter
  146. X *
  147. X *  Purpose:    This program translates text into crude cursive script.
  148. X *        It works on any terminal with a fairly normal character
  149. X *        set (must have backslashes and underscores and suchlike).
  150. X *        The font includes all upper and lower case letters, most
  151. X *        punctuation, and a few symbols.  No numbers are included
  152. X *        (It's difficult to make a nice italicized set of numbers).
  153. X *        Cursive was originally written to generate fancy signatures
  154. X *        for electronic mail messages, but other uses may occur to
  155. X *        you.  The attractiveness of the font varies greatly with
  156. X *        the display device.
  157. X *
  158. X *  Usage:    If no command line arguments are given, cursive reads the
  159. X *        text to translate from standard input.  Otherwise the args
  160. X *        are translated (e.g. "cursive Jan Wolter" prints my name).
  161. X *        Output is always to standard output.  A couple command line
  162. X *        arguments are recognized:
  163. X *
  164. X *          -in    Sets the amount of space to insert between letters.
  165. X *            The default is "-i1".  "-i0" gives interesting
  166. X *            results.
  167. X *          -tn    Sets the length of the trailing line off the end
  168. X *            of each word.  The default is "-t1".
  169. X *
  170. X *        One character in the text is treated in a special way:
  171. X *
  172. X *          '_'   Can be inserted in text to slightly lengthen the
  173. X *            the spacing between two letters, or add a longer
  174. X *            tail to the end of a word.
  175. X *
  176. X *  Internals:    Unfortunately, the program is a kludge and the font is
  177. X *        somewhat difficult to edit.  It should be easy to port
  178. X *        though.  Systems with short integers or unsigned characters
  179. X *        should be no problem.  You should probably run "xstr" on the
  180. X *        font.c file, but if you haven't got "xstr", just compiling it
  181. X *        the usual way works fine.
  182. X *
  183. X *  Copyright:    Both the cursive program and the font it generates are
  184. X *        copyrighted by yours truly.  However, both may be used
  185. X *        and distributed freely.  You even have my permission to
  186. X *        sell it, or include in it a system that you sell.  I only
  187. X *        ask that my name be retained on this program, or any direct
  188. X *        decendents of this program with approximately the same
  189. X *        visibility as in this posting.
  190. X *
  191. X *  Mail:    I'm interested in any comments you have on this program.
  192. X *        I can be mailed at "janc@crim.eecs.umich.edu".  Better yet,
  193. X *        if you are into teleconferencing, call M-Net at (313) 994-6333
  194. X *        and type "newuser" at the "login:" prompt to give yourself an
  195. X *        account.  Send mail to janc, or join the "ugames" conference.
  196. X *
  197. X *        Have fun,
  198. X *                  ___                _     __  _
  199. X *                 (   >              ' )   /   // _/_
  200. X *                  __/___.  ____      / / / __|/  /  _  __
  201. X *                 / / (_/|_/ / <__   (_(_/ (_) \_<__</_/ (__
  202. X *                <_/
  203. X */
  204. X
  205. X#include <stdio.h>
  206. X#include "cursive.h"
  207. X
  208. Xchar *buffer[6];    /* memory buffers to build up line in */
  209. Xint c[6];        /* current index in each of the buffer lines */
  210. Xint tail[6];        /* which buffer lines have tails in them */
  211. Xint lasttail;        /* which line was the last letter's tail */
  212. Xint space;        /* how much white space before the next letter */
  213. Xint interspace = 1;    /* how much to spread adjacent letters out */
  214. Xint taillen = 1;    /* how long the tails on ends of words should be */
  215. Xchar firstletter;    /* is this the first letter on the line? */
  216. Xchar message[256] = "";    /* message to print */
  217. X
  218. Xchar *malloc();
  219. X
  220. Xmain(argc,argv)
  221. Xint argc;
  222. Xchar **argv;
  223. X{
  224. Xint i;
  225. Xchar *s,*m;
  226. Xchar ch;
  227. X
  228. X    m = message;
  229. X    for (i = 1; i < argc; i++)
  230. X    {
  231. X        if (*argv[i] == '-')
  232. X            switch(ch = argv[i][1])
  233. X            {
  234. X            case 'i':
  235. X            case 't':
  236. X                s = argv[i]+2;
  237. X                if (*s == '\000')
  238. X                    if (++i < argc)
  239. X                        s = argv[i];
  240. X                if (*s < '0' || *s > '9')
  241. X                {
  242. X                    printf("%s: Illegal value %s\n",
  243. X                        argv[0],s);
  244. X                    exit(1);
  245. X                }
  246. X                if (ch == 'i')
  247. X                    interspace = atoi(s);
  248. X                else
  249. X                    taillen = atoi(s);
  250. X                break;
  251. X            default:
  252. X                printf("usage: %s [-tn] [-in] message\n",
  253. X                    argv[0]);
  254. X                exit(1);
  255. X            }
  256. X        else
  257. X        {
  258. X            if (m != message)
  259. X                *(m++) = ' ';
  260. X            for (s=argv[i]; *s != '\000'; s++)
  261. X                *(m++) = *s;
  262. X        }
  263. X    }
  264. X    /* Do the deed */
  265. X    if (m != message)
  266. X    {
  267. X        /* Message from the arg list */
  268. X        *(m++) = 0;
  269. X        prline(message);
  270. X    }
  271. X    else
  272. X    {
  273. X        /* Message from standard input */
  274. X        while (gets(message) != NULL)
  275. X            prline(message);
  276. X    }
  277. X}
  278. X
  279. X
  280. X/* Add the given letter to the end of the current line */
  281. X
  282. Xplace(let)
  283. Xstruct letter *let;
  284. X{
  285. Xint i,j,n;
  286. Xint col;
  287. Xint max = -10000;
  288. Xchar pad;
  289. Xchar *l;
  290. X
  291. X    if (firstletter)
  292. X    {
  293. X        col = space;        /* Leading spaces */
  294. X        firstletter = 0;
  295. X    }
  296. X    else
  297. X    {
  298. X        /* Find the furthest left position we can place this letter */
  299. X        for(i=0; i<6; i++)
  300. X        {
  301. X            if (let->line[i][0] != '\000' &&
  302. X                (col = c[i] - let->spcs[i]) > max)
  303. X                max = col;
  304. X        }
  305. X
  306. X        /* Insert some spaces between letters */
  307. X        col = max + space + interspace;
  308. X    }
  309. X
  310. X    for(i=0; i<6; i++)
  311. X
  312. X        /* If Nothing on this Line, Skip It */
  313. X        if (let->line[i][0] != '\000')
  314. X        {
  315. X            /* Number of Spaces to Put on this Line? */
  316. X            n = col - c[i] + let->spcs[i];
  317. X
  318. X            /* Flyers off Ends of Letters */
  319. X            if (tail[i])
  320. X                for (j = 0;
  321. X                     j < 5 && n > space + 2; j++,n--)
  322. X                    buffer[i][c[i]++] = '_';
  323. X
  324. X            /* Connecting Lines Between Letters */
  325. X            pad = (lasttail == i && let->tailin == i) ? '_' : ' ';
  326. X
  327. X            /* In the middle of the intersection of South and */
  328. X            /* East University, someone is playing the piano. */
  329. X            for ( ; n > 0; n--)
  330. X                buffer[i][c[i]++] = pad;
  331. X
  332. X            /* Copy in the letter text */
  333. X            for (l = let->line[i]; *l != '\000'; l++)
  334. X                buffer[i][c[i]++] = *l;
  335. X
  336. X            tail[i] = (i == let->tailout);
  337. X        }
  338. X
  339. X    lasttail = let->tailout;
  340. X    space = 0;
  341. X}
  342. X
  343. X/* Lengthen the last trailer by n */
  344. Xtailer(n)
  345. Xint n;
  346. X{
  347. Xint j;
  348. X    if (lasttail >= 0)
  349. X        for (j = 0; j < n; j++)
  350. X            buffer[lasttail][c[lasttail]++] = '_';
  351. X}
  352. X
  353. X/* Handle a line */
  354. Xprline(s)
  355. Xchar *s;
  356. X{
  357. Xint l,i;
  358. Xchar *ch;
  359. Xshort lcode;
  360. X
  361. X    lasttail = -1;
  362. X    firstletter = 1;
  363. X    space = 0;
  364. X    /* Get some memory to put the output into */
  365. X    l = strlen(s) * (CHARWIDTH + interspace);
  366. X    for (i=0;i<6;i++)
  367. X    {
  368. X        buffer[i] = malloc((unsigned)l);
  369. X        tail[i] = c[i] = 0;
  370. X    }
  371. X
  372. X    /* do each letter */
  373. X    for (ch=s; *ch != '\000'; ch++)
  374. X    {
  375. X
  376. X        *ch &= '\177';
  377. X        /* Find the letter */
  378. X        lcode = (lasttail != 2) ? code1[*ch] : code2[*ch];
  379. X        if (lcode >= 0)
  380. X            place(&list[lcode]);
  381. X        else
  382. X            /* Various Special characters */
  383. X            switch(lcode)
  384. X            {
  385. X            case SP:
  386. X                /* Insert white space before next letter */
  387. X                tailer(taillen);
  388. X                space += 3;
  389. X                lasttail = -1;
  390. X                break;
  391. X            case ST:
  392. X                /* Lengthen the last tail */
  393. X                if (lasttail >= 0)
  394. X                    buffer[lasttail][c[lasttail]++] = '_';
  395. X                break;
  396. X            }
  397. X    }
  398. X    tailer(taillen);
  399. X
  400. X    /* print the line and release the memory */
  401. X    for (i=0;i<6;i++)
  402. X    {
  403. X        buffer[i][c[i]++] = '\n';
  404. X        write(1,buffer[i],c[i]);
  405. X        free(buffer[i]);
  406. X    }
  407. X}
  408. END_OF_cursive.c
  409. if test 6630 -ne `wc -c <cursive.c`; then
  410.     echo shar: \"cursive.c\" unpacked with wrong size!
  411. fi
  412. # end of overwriting check
  413. fi
  414. if test -f cursive.h -a "${1}" != "-c" ; then 
  415.   echo shar: Will not over-write existing file \"cursive.h\"
  416. else
  417. echo shar: Extracting \"cursive.h\" \(544 characters\)
  418. sed "s/^X//" >cursive.h <<'END_OF_cursive.h'
  419. Xstruct letter {
  420. X    char *line[6];            /* What's on each of the six lines */
  421. X    char spcs[6];            /* Number of leading spaces for each */
  422. X    short tailin,tailout;        /* Where the lines in and out go */
  423. X    };
  424. X
  425. X/* Special Codes for Character Table */
  426. X
  427. X#define XX  -1        /* Ignore character */
  428. X#define SP  -2          /* Space */
  429. X#define ST  -3          /* Extend trailer */
  430. X#define SA  -4        /* Alternate font number */    /* Not used */
  431. X#define SN  -5        /* Numbers */            /* Not used */
  432. X
  433. X#define CHARWIDTH 10
  434. X
  435. Xextern struct letter list[];
  436. Xextern short code1[], code2[];
  437. END_OF_cursive.h
  438. if test 544 -ne `wc -c <cursive.h`; then
  439.     echo shar: \"cursive.h\" unpacked with wrong size!
  440. fi
  441. # end of overwriting check
  442. fi
  443. if test -f font.c -a "${1}" != "-c" ; then 
  444.   echo shar: Will not over-write existing file \"font.c\"
  445. else
  446. echo shar: Extracting \"font.c\" \(11667 characters\)
  447. sed "s/^X//" >font.c <<'END_OF_font.c'
  448. X/* CURSIVE FONT FILE
  449. X *
  450. X * This font is copyrighted by Jan Wolter.  See notes in "cursive.c".
  451. X *
  452. X * Several of the letters are rather ugly, but the wonder is not how
  453. X * well it sings.  A few uppercase letters are a bit too tall.  The
  454. X * font has to some extent been chosen to make my name look good to me.
  455. X * Those of you with different names will have to take pot luck, or fix
  456. X * it to taste.  Editing this file must be done with some care.  The
  457. X * numbers on the defines must match the index numbers of the letter
  458. X * in the list[] structure.  The six numbers after the character are how
  459. X * many blank spaces must be added to the beginning of each of the six
  460. X * scan lines to make them line up.  The last two numbers are the scan
  461. X * line numbers in which the character is connected to the preceeding and
  462. X * succeeding characters.  -1 means it isn't.  There are two versions of
  463. X * each lower case letter, one with the line coming in on line 2, and one
  464. X * with the line coming in on line 3.
  465. X */
  466. X
  467. X#include "cursive.h"
  468. X
  469. Xstruct letter list[] = {
  470. X
  471. X#define LA  0        /* a type 1 */ 
  472. X    { {
  473. X    "",
  474. X    "",
  475. X     "__.",
  476. X    "(_/|",
  477. X    "",
  478. X    ""
  479. X    },
  480. X    {0,0,1,0,0,0},
  481. X    3,3
  482. X    },
  483. X
  484. X#define LB  1        /* b type 1 */
  485. X    { {
  486. X    "",
  487. X      "/",
  488. X      "/_",
  489. X    "/_)",
  490. X    "",
  491. X    ""
  492. X    },
  493. X    {0,2,1,0,0,0},
  494. X    3,2
  495. X    },
  496. X
  497. X#define LC  2        /* c type 1 */
  498. X    { {
  499. X    "",
  500. X    "",
  501. X     "_.",
  502. X    "(_",
  503. X    "",
  504. X    ""}
  505. X    ,
  506. X    {0,0,1,0,0,0},
  507. X    3,3
  508. X    },
  509. X
  510. X#define LD  3        /* d type 1 */
  511. X    { {
  512. X    "",
  513. X        "/",
  514. X     "__/",
  515. X    "(_/",
  516. X    "",
  517. X    ""
  518. X    },
  519. X    {0,4,1,0,0,0},
  520. X    3,3
  521. X    },
  522. X
  523. X#define LE  4        /* e type 1 */
  524. X    { {
  525. X    "",
  526. X    "",
  527. X     "_",
  528. X    "</",
  529. X    "",
  530. X    ""
  531. X    },
  532. X    {0,0,1,0,0,0},
  533. X    3,3
  534. X    },
  535. X
  536. X#define LF  5        /* f type 1 */
  537. X    { {
  538. X    "",
  539. X        "/)",
  540. X       "// ",
  541. X      "//",
  542. X     "/>",
  543. X    "</ "
  544. X    },
  545. X    {0,4,3,2,1,0},
  546. X    3,3
  547. X    },
  548. X
  549. X#define LG  6        /* g type 1 */
  550. X    { {
  551. X    "",
  552. X    "",
  553. X     "_,",
  554. X    "(_)",
  555. X     "/|",
  556. X    "|/"
  557. X    },
  558. X    {0,0,1,0,1,0},
  559. X    3,3
  560. X    },
  561. X
  562. X#define LH  7        /* h type 1 */
  563. X    { {
  564. X    "",
  565. X      "/",
  566. X     "/_",
  567. X    "/ /",
  568. X    "",
  569. X    ""
  570. X    },
  571. X    {0,2,1,0,0,0},
  572. X    3,3
  573. X    },
  574. X
  575. X#define LI  8        /* i type 1 */
  576. X    { {
  577. X    "",
  578. X    "",
  579. X     "o",
  580. X    "<",
  581. X    "",
  582. X    ""
  583. X    },
  584. X    {0,0,1,0,0,0},
  585. X    3,3
  586. X    },
  587. X
  588. X#define LJ  9        /* j type 1 */
  589. X    { {
  590. X    "",
  591. X    "",
  592. X        "o",
  593. X       "/",
  594. X      "/",
  595. X    "-'"
  596. X    },
  597. X    {0,0,4,3,2,0},
  598. X    3,3
  599. X    },
  600. X
  601. X#define LK 10        /* k type 1 */
  602. X    { {
  603. X    "",
  604. X      "/",
  605. X     "/_ ",
  606. X    "/ <",
  607. X    "",
  608. X    ""
  609. X    },
  610. X    {0,2,1,0,0,0},
  611. X    3,3
  612. X    },
  613. X
  614. X#define LL 11        /* l type 1 */
  615. X    { {
  616. X       "_",
  617. X      "//",
  618. X     "//",
  619. X    "</",
  620. X    "",
  621. X    ""
  622. X    },
  623. X    {3,2,1,0,0,0},
  624. X    3,3
  625. X    },
  626. X
  627. X#define LM 12        /* m type 1 */
  628. X    { {
  629. X    "",
  630. X    "",
  631. X     "______",
  632. X    "/ / / <",
  633. X    "",
  634. X    ""
  635. X    },
  636. X    {0,0,1,0,0,0},
  637. X    3,3
  638. X    },
  639. X
  640. X#define LN 13        /* n type 1 */
  641. X    { {
  642. X    "",
  643. X    "",
  644. X     "____",
  645. X    "/ / <",
  646. X    "",
  647. X    ""
  648. X    },
  649. X    {0,0,1,0,0,0},
  650. X    3,3
  651. X    },
  652. X
  653. X#define LO 14        /* o type 1 */
  654. X    { {
  655. X    "",
  656. X    "",
  657. X     "_",
  658. X    "(_)",
  659. X    "",
  660. X    ""
  661. X    },
  662. X    {0,0,1,0,0,0},
  663. X    3,2
  664. X    },
  665. X
  666. X#define LP 15        /* p type 1 */
  667. X    { {
  668. X    "",
  669. X    "",
  670. X       "_",
  671. X      "/_)",
  672. X     "/",
  673. X    "'"
  674. X    },
  675. X    {0,0,3,2,1,0},
  676. X    3,3
  677. X    },
  678. X
  679. X#define LQ 16        /* q type 1 */
  680. X    { {
  681. X    "",
  682. X    "",
  683. X     "_,",
  684. X    "(_)",
  685. X     "/>",
  686. X    "|/"
  687. X    },
  688. X    {0,0,1,0,1,0},
  689. X    3,3
  690. X    },
  691. X
  692. X#define LR 17        /* r type 1 */
  693. X    { {
  694. X    "",
  695. X    "",
  696. X     "__",
  697. X    "/ (",
  698. X    "",
  699. X    ""
  700. X    },
  701. X    {0,0,1,0,0,0},
  702. X    3,3
  703. X    },
  704. X
  705. X#define LS 18        /* s type 1 */
  706. X    { {
  707. X    "",
  708. X    "",
  709. X     "_",
  710. X    "/_)",
  711. X    "",
  712. X    ""
  713. X    },
  714. X    {0,0,1,0,0,0},
  715. X    3,3
  716. X    },
  717. X
  718. X#define LT 19        /* t type 1 */
  719. X    { {
  720. X    "",
  721. X     "_/_",
  722. X     "/",
  723. X    "<_",
  724. X    "",
  725. X    ""
  726. X    },
  727. X    {0,1,1,0,0,0},
  728. X    3,3
  729. X    },
  730. X
  731. X#define LU 20        /* u type 1 */
  732. X    { {
  733. X    "",
  734. X    "",
  735. X     ". .",
  736. X    "(_/",
  737. X    "",
  738. X    ""
  739. X    },
  740. X    {0,0,1,0,0,0},
  741. X    3,3
  742. X    },
  743. X
  744. X#define LV 21        /* v type 1 */
  745. X    { {
  746. X    "",
  747. X    "",
  748. X    ", ",
  749. X    "\\/",
  750. X    "",
  751. X    ""
  752. X    },
  753. X    {0,0,0,0,0,0},
  754. X    3,2
  755. X    },
  756. X
  757. X#define LW 22        /* w type 1 */
  758. X    { {
  759. X    "",
  760. X    "",
  761. X     ", , ,",
  762. X    "(_(_/",
  763. X    "",
  764. X    ""
  765. X    },
  766. X    {0,0,1,0,0,0},
  767. X    3,3
  768. X    },
  769. X
  770. X#define LX 23        /* x type 1 */
  771. X    { {
  772. X    "",
  773. X    "",
  774. X     "_.,",
  775. X    "/ /\\",
  776. X    "",
  777. X    ""
  778. X    },
  779. X    {0,0,1,0,0,0},
  780. X    3,3
  781. X    },
  782. X
  783. X#define LY 24        /* y type 1 */
  784. X    { {
  785. X    "",
  786. X    "",
  787. X     "__  ,",
  788. X    "/ (_/",
  789. X       "/",
  790. X      "'"
  791. X     },
  792. X    {0,0,1,0,3,2},
  793. X    3,3
  794. X    },
  795. X
  796. X#define LZ 25        /* z type 1 */
  797. X    { {
  798. X    "",
  799. X    "",
  800. X     "__.",
  801. X    "/  |",
  802. X      "(|",
  803. X    ""
  804. X    },
  805. X    {0,0,1,0,2,0},
  806. X    3,3
  807. X    },
  808. X
  809. X#define NA 26        /* a type 2 */
  810. X    { {
  811. X    "",
  812. X    "",
  813. X     "__.",
  814. X    "(_/|",
  815. X    "",
  816. X    ""
  817. X    },
  818. X    {0,0,1,0,0,0},
  819. X    2,3
  820. X    },
  821. X
  822. X#define NB 27        /* b type 2 */
  823. X    { {
  824. X    "",
  825. X      "/",
  826. X     "/_",
  827. X    "/_)",
  828. X    "",
  829. X    ""
  830. X    },
  831. X    {0,2,1,0,0,0},
  832. X    2,2
  833. X    },
  834. X
  835. X#define NC 28        /* c type 2 */
  836. X    { {
  837. X    "",
  838. X    "",
  839. X    "__.",
  840. X    "(_",
  841. X    "",
  842. X    ""
  843. X    },
  844. X    {0,0,0,0,0,0},
  845. X    2,3
  846. X    },
  847. X
  848. X#define ND 29        /* d type 2 */
  849. X    { {
  850. X    "",
  851. X        "/",
  852. X    "___/",
  853. X    "(_/",
  854. X    "",
  855. X    ""
  856. X    },
  857. X    {0,4,0,0,0,0},
  858. X    2,3
  859. X    },
  860. X
  861. X#define NE 30        /* e type 2 */
  862. X    { {
  863. X    "",
  864. X    "",
  865. X     "/>",
  866. X    "(_",
  867. X    "",
  868. X    ""
  869. X    },
  870. X    {0,0,1,0,0,0},
  871. X    2,3
  872. X    },
  873. X
  874. X#define NF 31        /* f type 2 */
  875. X    { {
  876. X    "",
  877. X        "/)",
  878. X       "//",
  879. X      "/_",
  880. X     "/>",
  881. X    "</"
  882. X    },
  883. X    {0,4,3,2,1,0},
  884. X    2,3
  885. X    },
  886. X
  887. X#define NG 32        /* g type 2 */
  888. X    { {
  889. X    "",
  890. X    "",
  891. X    "__,",
  892. X    "(_)",
  893. X     "/|",
  894. X    "|/"
  895. X    },
  896. X    {0,0,0,0,1,0},
  897. X    2,3
  898. X    },
  899. X
  900. X#define NH 33        /* h type 2 */
  901. X    { {
  902. X    "",
  903. X      "/",
  904. X     "/_",
  905. X    "/ /",
  906. X    "",
  907. X    ""
  908. X    },
  909. X    {0,2,1,0,0,0},
  910. X    2,3
  911. X    },
  912. X
  913. X#define NI 34        /* i type 2 */
  914. X    { {
  915. X    "",
  916. X    "",
  917. X     "o",
  918. X    "<_",
  919. X    "",
  920. X    ""
  921. X    },
  922. X    {0,0,1,0,0,0},
  923. X    2,3
  924. X    },
  925. X
  926. X#define NJ 35        /* j type 2 */
  927. X    { {
  928. X    "",
  929. X    "",
  930. X       "_o",
  931. X       "/_",
  932. X      "/",
  933. X    "-'"
  934. X    },
  935. X    {0,0,3,3,2,0},
  936. X    2,3
  937. X    },
  938. X
  939. X#define NK 36        /* k type 2 */
  940. X    { {
  941. X    "",
  942. X      "/",
  943. X     "/_",
  944. X    "/ <",
  945. X    "",
  946. X    ""
  947. X    },
  948. X    {0,2,1,0,0,0},
  949. X    2,3
  950. X    },
  951. X
  952. X#define NL 37        /* l type 2 */
  953. X    { {
  954. X      "_",
  955. X     "//",
  956. X    "|/",
  957. X     "\\",
  958. X    "",
  959. X    ""
  960. X    },
  961. X    {2,1,0,1,0,0},
  962. X    2,3
  963. X    },
  964. X
  965. X#define NM 38        /* m type 2 */
  966. X    { {
  967. X    "",
  968. X    "",
  969. X    "_______",
  970. X    "/ / / <",
  971. X    "",
  972. X    ""
  973. X    },
  974. X    {0,0,0,0,0,0},
  975. X    2,3
  976. X    },
  977. X
  978. X#define NN 39        /* n type 2 */
  979. X    { {
  980. X    "",
  981. X    "",
  982. X    "_____",
  983. X    "/ / <",
  984. X    "",
  985. X    ""
  986. X    },
  987. X    {0,0,0,0,0,0},
  988. X    2,3
  989. X    },
  990. X
  991. X#define NO 40        /* o type 2 */
  992. X    { {
  993. X    "",
  994. X    "",
  995. X    "___",
  996. X    "(_)",
  997. X    "",
  998. X    ""
  999. X    },
  1000. X    {0,0,0,0,0,0},
  1001. X    2,2
  1002. X    },
  1003. X
  1004. X#define NP 41        /* p type 2 */
  1005. X    { {
  1006. X    "",
  1007. X    "",
  1008. X      "__",
  1009. X      "/_)",
  1010. X     "/",
  1011. X    "'"
  1012. X    },
  1013. X    {0,0,2,2,1,0},
  1014. X    2,3
  1015. X    },
  1016. X
  1017. X#define NQ 42        /* q type 2 */
  1018. X    { {
  1019. X    "",
  1020. X    "",
  1021. X    "__,",
  1022. X    "(_)",
  1023. X     "/>",
  1024. X    "|/"
  1025. X    },
  1026. X    {0,0,0,0,1,0},
  1027. X    2,3
  1028. X    },
  1029. X
  1030. X#define NR 43        /* r type 2 */
  1031. X    { {
  1032. X    "",
  1033. X    "",
  1034. X    ",_",
  1035. X     "(",
  1036. X    "",
  1037. X    ""
  1038. X    },
  1039. X    {0,0,0,1,0,0},
  1040. X    2,3
  1041. X    },
  1042. X
  1043. X#define NS 44        /* s type 2 */
  1044. X    { {
  1045. X    "",
  1046. X    "",
  1047. X    "___ ",
  1048. X     "\\_)_",
  1049. X    "",
  1050. X    ""
  1051. X    },
  1052. X    {0,0,0,1,0,0},
  1053. X    2,3
  1054. X    },
  1055. X
  1056. X#define NT 45        /* t type 2 */
  1057. X    { {
  1058. X    "",
  1059. X     "_/_",
  1060. X    "_/",
  1061. X    "(_",
  1062. X    "",
  1063. X    ""
  1064. X    },
  1065. X    {0,1,0,0,0,0},
  1066. X    2,3
  1067. X    },
  1068. X
  1069. X#define NU 46        /* u type 2 */
  1070. X    { {
  1071. X    "",
  1072. X    "",
  1073. X    "_. .",
  1074. X    "(_/",
  1075. X    "",
  1076. X    ""
  1077. X    },
  1078. X    {0,0,0,0,0,0},
  1079. X    2,3
  1080. X    },
  1081. X
  1082. X#define NV 47        /* v type 2 */
  1083. X    { {
  1084. X    "",
  1085. X    "",
  1086. X    "  .",
  1087. X    "\\/",
  1088. X    "",
  1089. X    ""
  1090. X    },
  1091. X    {0,0,0,0,0,0},
  1092. X    2,3
  1093. X    },
  1094. X
  1095. X#define NW 48        /* w type 2 */
  1096. X    { {
  1097. X    "",
  1098. X    "",
  1099. X    "_, , ,",
  1100. X    "(_(_/",
  1101. X    "",
  1102. X    ""
  1103. X    },
  1104. X    {0,0,0,0,0,0},
  1105. X    2,3
  1106. X    },
  1107. X
  1108. X#define NX 49        /* x type 2 */
  1109. X    { {
  1110. X    "",
  1111. X    "",
  1112. X    "_.,",
  1113. X     "/\\",
  1114. X    "",
  1115. X    ""
  1116. X    },
  1117. X    {0,0,0,1,0,0},
  1118. X    2,3
  1119. X    },
  1120. X
  1121. X#define NY 50        /* y type 2 */
  1122. X    { {
  1123. X    "",
  1124. X    "",
  1125. X    "_  ,",
  1126. X    "(_/__",
  1127. X     "/",
  1128. X    "'"
  1129. X    },
  1130. X    {0,0,0,0,1,0},
  1131. X    2,3
  1132. X    },
  1133. X
  1134. X#define NZ 51        /* z type 2 */
  1135. X    { {
  1136. X    "",
  1137. X    "",
  1138. X    "__.",
  1139. X      "|",
  1140. X     "(|",
  1141. X    ""
  1142. X    },
  1143. X    {0,0,0,2,1,0},
  1144. X    2,3
  1145. X    },
  1146. X
  1147. X#define UA 52        /* A */
  1148. X    { {
  1149. X       "__",
  1150. X      "/  )",
  1151. X     "/--/",
  1152. X    "/  (",
  1153. X    "",
  1154. X    ""
  1155. X    },
  1156. X    {3,2,1,0,0,0},
  1157. X    3,3
  1158. X    },
  1159. X
  1160. X#define UB 53        /* B  */
  1161. X    { {
  1162. X       "__",
  1163. X      "/  )",
  1164. X     "/--<",
  1165. X    "/___/",
  1166. X    "",
  1167. X    ""
  1168. X    },
  1169. X    {3,2,1,0,0,0},
  1170. X    3,3
  1171. X    },
  1172. X
  1173. X#define UC 54        /* C */
  1174. X    { {
  1175. X       "__",
  1176. X      "/  )",
  1177. X     "/",
  1178. X    "(__/",
  1179. X    "",
  1180. X    ""
  1181. X    },
  1182. X    {3,2,1,0,0,0},
  1183. X    -1,-1
  1184. X    },
  1185. X
  1186. X#define UD 55        /* D  */
  1187. X    { {
  1188. X       "__",
  1189. X      "/  )",
  1190. X     "/  /",
  1191. X    "/__/",
  1192. X    "",
  1193. X    ""
  1194. X    },
  1195. X    {3,2,1,0,0,0},
  1196. X    3,3
  1197. X    },
  1198. X
  1199. X#define UE 56        /* E */
  1200. X    { {
  1201. X       "__",
  1202. X      "/  `",
  1203. X     "/--",
  1204. X    "(___,",
  1205. X    "",
  1206. X    ""
  1207. X    },
  1208. X    {3,2,1,0,0,0},
  1209. X    -1,-1
  1210. X    },
  1211. X
  1212. X#define UF 57        /* F */
  1213. X    { {
  1214. X       "_____",
  1215. X       " /  '",
  1216. X     ",-/-,",
  1217. X    "(_/",
  1218. X    "",
  1219. X    ""
  1220. X    },
  1221. X    {3,3,1,0,0,0},
  1222. X    -1,-1
  1223. X    },
  1224. X
  1225. X#define UG 58        /* G */
  1226. X    { {
  1227. X      "()  ,",
  1228. X      "/`-'|",
  1229. X     "/   /",
  1230. X    "/__-<",
  1231. X    "",
  1232. X    ""
  1233. X    },
  1234. X    {2,2,1,0,0,0},
  1235. X    -1,3
  1236. X    },
  1237. X
  1238. X#define UH 59        /* H */
  1239. X    { {
  1240. X     "_    ,",
  1241. X    "' )  /",
  1242. X     "/--/",
  1243. X    "/  (",
  1244. X    "",
  1245. X    ""
  1246. X    },
  1247. X    {1,0,1,0,0,0},
  1248. X    -1,3
  1249. X    },
  1250. X
  1251. X#define UI 60        /* I */
  1252. X    { {
  1253. X         "_",
  1254. X        "| )",
  1255. X    ",---|/",
  1256. X     "\\_/ \\",
  1257. X    "",
  1258. X    ""
  1259. X    },
  1260. X    {5,4,0,1,0,0},
  1261. X    -1,3
  1262. X    },
  1263. X
  1264. X#define UJ 61        /* J */
  1265. X    { {
  1266. X      "___",
  1267. X     "(   >",
  1268. X      "__/",
  1269. X     "/ /",
  1270. X    "<_/",
  1271. X    ""
  1272. X    },
  1273. X    {2,1,2,1,0,0},
  1274. X    -1,2
  1275. X    },
  1276. X
  1277. X#define UK 62        /* K */
  1278. X    { {
  1279. X     "_   ,",
  1280. X    "' ) /",
  1281. X     "/-<",
  1282. X    "/   )",
  1283. X    "",
  1284. X    ""
  1285. X    },
  1286. X    {1,0,1,0,0,0},
  1287. X    -1,-1
  1288. X    },
  1289. X
  1290. X#define UL 63        /* L */
  1291. X    { {
  1292. X       "_",
  1293. X     "_//",
  1294. X     "/",
  1295. X    "/___",
  1296. X    "",
  1297. X    ""
  1298. X    },
  1299. X    {3,1,1,0,0,0},
  1300. X    -1,-1
  1301. X    },
  1302. X
  1303. X#define UM 64        /* M */
  1304. X    { {
  1305. X     "_ _ _",
  1306. X    "' ) ) )",
  1307. X     "/ / /",
  1308. X    "/ ' (",
  1309. X    "",
  1310. X    ""
  1311. X    },
  1312. X    {1,0,1,0,0,0},
  1313. X    -1,3
  1314. X    },
  1315. X
  1316. X#define UN 65        /* N */
  1317. X    { {
  1318. X     "_ __",
  1319. X    "' )  )",
  1320. X     "/  /",
  1321. X    "/  (",
  1322. X    "",
  1323. X    ""
  1324. X    },
  1325. X    {1,0,1,0,0,0},
  1326. X    -1,3
  1327. X    },
  1328. X
  1329. X#define UO 66        /* O */
  1330. X    { {
  1331. X       "__",
  1332. X      "/ ')",
  1333. X     "/  /",
  1334. X    "(__/",
  1335. X    "",
  1336. X    ""
  1337. X    },
  1338. X    {3,2,1,0,0,0},
  1339. X    -1,-1
  1340. X    },
  1341. X
  1342. X#define UP 67        /* P */
  1343. X    { {
  1344. X     "_ __",
  1345. X    "' )  )",
  1346. X     "/--'",
  1347. X    "/",
  1348. X    "",
  1349. X    ""
  1350. X    },
  1351. X    {1,0,1,0,0,0},
  1352. X    -1,-1
  1353. X    },
  1354. X
  1355. X#define UQ 68        /* Q */
  1356. X    { {
  1357. X       "__",
  1358. X      "/  )",
  1359. X     "/  /",
  1360. X    "(_\\/",
  1361. X       "`",
  1362. X    ""
  1363. X    },
  1364. X    {3,2,1,0,3,0},
  1365. X    -1,-1
  1366. X    },
  1367. X
  1368. X#define UR 69        /* R */
  1369. X    { {
  1370. X     "_ __",
  1371. X    "' )  )",
  1372. X     "/--'",
  1373. X    "/  \\",
  1374. X    "",
  1375. X    ""
  1376. X    },
  1377. X    {1,0,1,0,0,0},
  1378. X    -1,3
  1379. X    },
  1380. X
  1381. X#define US 70        /* S */
  1382. X    { {
  1383. X      "()",
  1384. X      "/\\",
  1385. X     "/  )",
  1386. X    "/__/_",
  1387. X    "",
  1388. X    ""
  1389. X    },
  1390. X    {2,2,1,0,0,0},
  1391. X    -1,3
  1392. X    },
  1393. X
  1394. X#define UT 71        /* T */
  1395. X    { {
  1396. X      "______",
  1397. X        "/  ",
  1398. X     "--/",
  1399. X    "(_/",
  1400. X    "",
  1401. X    ""
  1402. X    },
  1403. X    {2,4,1,0,0,0},
  1404. X    -1,-1
  1405. X    },
  1406. X
  1407. X#define UU 72        /* U */
  1408. X    { {
  1409. X     "_    _",
  1410. X    "' )  /",
  1411. X     "/  /",
  1412. X    "(__/",
  1413. X    "",
  1414. X    ""
  1415. X    },
  1416. X    {1,0,1,0,0,0},
  1417. X    -1,0
  1418. X    },
  1419. X
  1420. X#define UV 73        /* V */
  1421. X    { {
  1422. X     "_    ",
  1423. X    "' )  /",
  1424. X     "(  /",
  1425. X      "\\/",
  1426. X    "",
  1427. X    ""
  1428. X    },
  1429. X    {1,0,1,2,0,0},
  1430. X    -1,0
  1431. X    },
  1432. X
  1433. X#define UW 74        /* W */
  1434. X    { {
  1435. X     "_     ",
  1436. X    "' )   /",
  1437. X     "/ / /",
  1438. X    "(_(_/",
  1439. X    "",
  1440. X    ""
  1441. X    },
  1442. X    {1,0,1,0,0,0},
  1443. X    -1,0
  1444. X    },
  1445. X
  1446. X#define UX 75        /* X */
  1447. X    { {
  1448. X     "_   ,",
  1449. X    "' \\ /",
  1450. X       "X",
  1451. X      "/ \\",
  1452. X    "",
  1453. X    ""
  1454. X    },
  1455. X    {1,0,3,2,0,0},
  1456. X    -1,3
  1457. X    },
  1458. X
  1459. X#define UY 76        /* Y */
  1460. X    { {
  1461. X     "_    ,",
  1462. X    "' )  /",
  1463. X     "/  /",
  1464. X    "(__/",
  1465. X     "//",
  1466. X    "(/"
  1467. X    },
  1468. X    {1,0,1,0,1,0},
  1469. X    -1,3
  1470. X    },
  1471. X
  1472. X#define UZ 77        /* Z */
  1473. X    { {
  1474. X    "___",
  1475. X      "/",
  1476. X     "/",
  1477. X    "/__",
  1478. X    "",
  1479. X    ""
  1480. X    },
  1481. X    {0,2,1,0,0,0},
  1482. X    -1,-1
  1483. X    },
  1484. X
  1485. X#define PE 78         /* ! */
  1486. X    { {
  1487. X       "/",
  1488. X      "/",
  1489. X     "'",
  1490. X    "o",
  1491. X    "",
  1492. X    ""
  1493. X    },
  1494. X    {3,2,1,0,0,0},
  1495. X    -1,-1
  1496. X    },
  1497. X
  1498. X#define PU 79        /* " */
  1499. X    { {
  1500. X    "o o",
  1501. X    "' '",
  1502. X    "",
  1503. X    "",
  1504. X    "",
  1505. X    ""
  1506. X    },
  1507. X    {0,0,0,0,0,0},
  1508. X    -1,-1
  1509. X    },
  1510. X
  1511. X#define PX 80        /* # */
  1512. X    { {
  1513. X       "/ /",
  1514. X     "-/-/-",
  1515. X    "-/-/-",
  1516. X    "/ /",
  1517. X    "",
  1518. X    ""
  1519. X    },
  1520. X    {3,1,0,0,0,0},
  1521. X    -1,-1
  1522. X    },
  1523. X
  1524. X#define PK 81        /* $ */
  1525. X    { {
  1526. X      ",-/-",
  1527. X     "(_/",
  1528. X      "/ )",
  1529. X    "-/-'",
  1530. X    "",
  1531. X    ""
  1532. X    },
  1533. X    {2,1,2,0,0,0},
  1534. X    -1,-1
  1535. X    },
  1536. X
  1537. X#define PF 82        /* ' */
  1538. X    { {
  1539. X    "o",
  1540. X    "'",
  1541. X    "",
  1542. X    "",
  1543. X    "",
  1544. X    ""
  1545. X    },
  1546. X    {0,0,0,0,0,0},
  1547. X    -1,-1
  1548. X    },
  1549. X
  1550. X#define PC 83        /* , */
  1551. X    { {
  1552. X    "",
  1553. X    "",
  1554. X    "",
  1555. X    "o",
  1556. X    "'",
  1557. X    ""
  1558. X    },
  1559. X    {0,0,0,0,0,0},
  1560. X    -1,-1
  1561. X    },
  1562. X
  1563. X#define PM 84        /* - */
  1564. X    { {
  1565. X    "",
  1566. X    "",
  1567. X    "---",
  1568. X    "",
  1569. X    "",
  1570. X    ""
  1571. X    },
  1572. X    {0,0,0,0,0,0},
  1573. X    -1,-1
  1574. X    },
  1575. X
  1576. X#define PP 85        /* . */
  1577. X    { {
  1578. X    "",
  1579. X    "",
  1580. X    "",
  1581. X    "o",
  1582. X    "",
  1583. X    ""
  1584. X    },
  1585. X    {0,0,0,0,0,0},
  1586. X    -1,-1
  1587. X    },
  1588. X
  1589. X#define PD 86        /* : */
  1590. X    { {
  1591. X    "",
  1592. X      "o",
  1593. X    "",
  1594. X    "o",
  1595. X    "",
  1596. X    ""
  1597. X    },
  1598. X    {0,2,0,0,0,0},
  1599. X    -1,-1
  1600. X    },
  1601. X
  1602. X#define PS 87        /* ; */
  1603. X    { {
  1604. X    "",
  1605. X      "o",
  1606. X    "",
  1607. X    "o",
  1608. X    "'",
  1609. X    ""
  1610. X    },
  1611. X    {0,2,0,0,0,0},
  1612. X    -1,-1
  1613. X    },
  1614. X
  1615. X#define PQ 88        /* ? */
  1616. X    { {
  1617. X      "__",
  1618. X      "__)",
  1619. X     "/",
  1620. X    "o",
  1621. X    "",
  1622. X    ""
  1623. X    },
  1624. X    {2,2,1,0,0,0},
  1625. X    -1,-1
  1626. X    },
  1627. X
  1628. X#define PB 89        /* ` */
  1629. X    { {
  1630. X    "o",
  1631. X    "`",
  1632. X    "",
  1633. X    "",
  1634. X    "",
  1635. X    ""
  1636. X    },
  1637. X    {0,0,0,0,0,0},
  1638. X    -1,-1
  1639. X    }
  1640. X    };
  1641. X
  1642. Xshort code1[] = {
  1643. X     /*  0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15 */
  1644. X    XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX,
  1645. X    XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX,
  1646. X    SP, PE, PU, PX, PK, XX, XX, PF, XX, XX, XX, XX, PC, PM, PP, XX,
  1647. X    SN, SN, SN, SN, SN, SN, SN, SN, SN, SN, PD, PS, XX, XX, XX, PQ,
  1648. X    XX, UA, UB, UC, UD, UE, UF, UG, UH, UI, UJ, UK, UL, UM, UN, UO,
  1649. X    UP, UQ, UR, US, UT, UU, UV, UW, UX, UY, UZ, XX, XX, XX, XX, ST,
  1650. X    PB, LA, LB, LC, LD, LE, LF, LG, LH, LI, LJ, LK, LL, LM, LN, LO,
  1651. X    LP, LQ, LR, LS, LT, LU, LV, LW, LX, LY, LZ, XX, XX, XX, XX, XX };
  1652. X
  1653. Xshort code2[] = {
  1654. X     /*  0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15 */
  1655. X    XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX,
  1656. X    XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX, XX,
  1657. X    SP, PE, PU, PX, PK, XX, XX, PF, XX, XX, XX, XX, PC, PM, PP, XX,
  1658. X    SN, SN, SN, SN, SN, SN, SN, SN, SN, SN, PD, PS, XX, XX, XX, PQ,
  1659. X    XX, UA, UB, UC, UD, UE, UF, UG, UH, UI, UJ, UK, UL, UM, UN, UO,
  1660. X    UP, UQ, UR, US, UT, UU, UV, UW, UX, UY, UZ, XX, XX, XX, XX, ST,
  1661. X    PB, NA, NB, NC, ND, NE, NF, NG, NH, NI, NJ, NK, NL, NM, NN, NO,
  1662. X    NP, NQ, NR, NS, NT, NU, NV, NW, NX, NY, NZ, XX, XX, XX, XX, XX };
  1663. END_OF_font.c
  1664. if test 11667 -ne `wc -c <font.c`; then
  1665.     echo shar: \"font.c\" unpacked with wrong size!
  1666. fi
  1667. # end of overwriting check
  1668. fi
  1669. echo shar: End of shell archive.
  1670. exit 0
  1671.